home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Apple II Magazines (PO)
/
Nibble Volume 10, No. 06 (1989-06)(MindCraft Publishing)(Side A).zip
/
Nibble Volume 10, No. 06 (1989-06)(MindCraft Publishing)(Side A).po
/
STUDIO.SAMPLE.bas
< prev
next >
Wrap
BASIC Source File
|
1996-12-24
|
685b
|
16 lines
10 REM ****************************
20 REM * STUDIO SAMPLE *
30 REM * BY ALLAN LAMB *
40 REM * COPYRIGHT(C) 1989 *
50 REM * MICROSPARC, INC *
60 REM * CONCORD, MA 01742 *
70 REM ****************************
80 D$ = CHR$(4):NC$ = CHR$(27) +"$":CC$ = CHR$(27) +"'": REM ** Set variables
90 PRINT D$"PR#1": REM ** Turn printer on
100 PRINT NC$;: REM ** Print normal characters
110 PRINT "I ";
120 PRINT CC$;: REM ** Print custom characters
130 PRINT "A";: REM ** Print a heart
140 PRINT NC$;: REM ** Switch back to normal print
150 PRINT " my computer!"
160 PRINT D$"PR#0": END : REM ** Turn printer off and end